home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibsigs.lbr / TESTSIGN.PQS / testsign.pas
Pascal/Delphi Source File  |  1985-04-28  |  466b  |  32 lines
  1. PROGRAM TestSign;
  2.  
  3. VAR
  4.    Z:    REAL;
  5.    P:    REAL;
  6.    Done: BOOLEAN;
  7.  
  8. (*$I SIGCONST.PAS *)
  9. (*$I ERF.PAS      *)
  10. (*$I SIGNORM.PAS  *)
  11.  
  12. BEGIN (* TestSign *)
  13.  
  14.    Done := FALSE;
  15.  
  16.    REPEAT
  17.  
  18.       WRITE('Enter Z: ');
  19.       READLN( Z );
  20.  
  21.       IF ( Z <> -99.0 ) THEN
  22.          BEGIN
  23.             P     := SigNorm( Z );
  24.             WRITELN('P = ',P:8:6);
  25.          END
  26.       ELSE
  27.          Done := TRUE;
  28.  
  29.    UNTIL Done;
  30.  
  31.  
  32. END   (* TestSign *).